home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS26.ADF / HexDump / Hex.def < prev    next >
Text File  |  1989-01-26  |  1KB  |  38 lines
  1. DEFINITION MODULE Hex;
  2.  
  3. (* This module exports the results of various hex routines. *)
  4.  
  5. FROM SYSTEM   IMPORT ADDRESS;
  6.  
  7. EXPORT QUALIFIED str80, OutType, CharType, LeftByte, RightByte,
  8.                  CharOut, CharIndex;
  9.  
  10. TYPE
  11.    str80      = ARRAY[0..79] OF CHAR;
  12.    OutType    = ARRAY[0..3] OF CHAR;
  13.    CharType   = ARRAY[1..16] OF CHAR;
  14. VAR
  15.    LeftByte   : CARDINAL;
  16.    RightByte  : CARDINAL;
  17.    CharOut    : CharType;
  18.    CharIndex  : CARDINAL;
  19.  
  20. PROCEDURE ConvertHexStringToCardinal(VAR Num         : LONGCARD;
  21.                                          NumLocation : str80);
  22.  
  23. PROCEDURE HexDump(StartAddress : ADDRESS;
  24.                   WordCount    : LONGCARD;
  25.                   Out          : OutType);
  26.  
  27. PROCEDURE WriteHex(    Input       : CARDINAL;
  28.                    VAR LeftByte    : CARDINAL;
  29.                    VAR RightByte   : CARDINAL;
  30.                    VAR Out         : OutType);
  31.  
  32. PROCEDURE WriteChar(VAR CharOut    : CharType;
  33.                     VAR CharIndex  : CARDINAL;
  34.                         LeftByte   : CARDINAL;
  35.                         RightByte  : CARDINAL);
  36.  
  37. END Hex.
  38.